home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 May / EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso / programs / write / macro / convert.wpl next >
Text File  |  1996-09-26  |  13KB  |  392 lines
  1. (* Convert.wpl *)
  2.  
  3. VAR
  4.   file,find,replace : STRING;
  5.  
  6. BEGIN
  7.   CLEARLIST("files");
  8.   PRINT("Initing filelist...\n");
  9.   ADDLIST("files","System:WRITE/Config/MAILS.config");
  10.   ADDLIST("files","System:WRITE/Config/TEX.CONFIG");
  11.   ADDLIST("files","System:WRITE/Config/OBERON.CONFIG");
  12.   ADDLIST("files","System:WRITE/Config/MSGREADER.config");
  13.   ADDLIST("files","System:WRITE/Config/C.CONFIG");
  14.   ADDLIST("files","System:WRITE/Config/STARTUP.CONFIG");
  15.   ADDLIST("files","System:WRITE/Config/MAILER.config");
  16.   ADDLIST("files","System:WRITE/Config/WRITE.CONFIG");
  17.   ADDLIST("files","System:WRITE/module/Search.module");
  18.   ADDLIST("files","System:WRITE/module/Arexx.module");
  19.   ADDLIST("files","System:WRITE/module/Bookmarks.module");
  20.   ADDLIST("files","System:WRITE/module/Count.module");
  21.   ADDLIST("files","System:WRITE/module/Extern.module");
  22.   ADDLIST("files","System:WRITE/module/Folds.module");
  23.   ADDLIST("files","System:WRITE/module/FunktionKeys.module");
  24.   ADDLIST("files","System:WRITE/module/Help.module");
  25.   ADDLIST("files","System:WRITE/module/Index.module");
  26.   ADDLIST("files","System:WRITE/module/Intern.module");
  27.   ADDLIST("files","System:WRITE/module/Jump.module");
  28.   ADDLIST("files","System:WRITE/module/MailerProject.module");
  29.   ADDLIST("files","System:WRITE/module/OberonIndex.module");
  30.   ADDLIST("files","System:WRITE/module/OberonNumPad.module");
  31.   ADDLIST("files","System:WRITE/module/PGP.MODULE");
  32.   ADDLIST("files","System:WRITE/module/Preferences.module");
  33.   ADDLIST("files","System:WRITE/module/Project.module");
  34.   ADDLIST("files","System:WRITE/module/Test.module");
  35.   ADDLIST("files","System:WRITE/module/TeXIndex.module");
  36.   ADDLIST("files","System:WRITE/module/VIEWEDIT.MODULE");
  37.   ADDLIST("files","System:WRITE/module/VIEwPROJECT.MODULE");
  38.   ADDLIST("files","System:WRITE/module/Mails_Project.module");
  39.   ADDLIST("files","System:WRITE/module/Utilities.module");
  40.   ADDLIST("files","System:WRITE/module/Macros.module");
  41.   ADDLIST("files","System:WRITE/module/Replace.module");
  42.   ADDLIST("files","System:WRITE/module/Mouse.module");
  43.   ADDLIST("files","System:WRITE/module/Edit_Menu.module");
  44.   ADDLIST("files","System:WRITE/module/Replace_All.module");
  45.   ADDLIST("files","System:WRITE/module/UMS.MODULE");
  46.   ADDLIST("files","System:WRITE/module/NumPad.module");
  47.   ADDLIST("files","System:WRITE/module/MsgReader_Project.module");
  48.   ADDLIST("files","System:WRITE/module/Cursor.module");
  49.   ADDLIST("files","System:WRITE/module/MatchBracket.module");
  50.   ADDLIST("files","System:WRITE/module/Edit_Key.module");
  51.   ADDLIST("files","System:WRITE/module/Standard.module");
  52.   ADDLIST("files","System:WRITE/module/HTML.module");
  53.   ADDLIST("files","System:WRITE/module/O2_Template.module");
  54.   ADDLIST("files","System:WRITE/module/AmigaOberon.module");
  55.   ADDLIST("files","System:WRITE/macro/Test.wpl");
  56.   ADDLIST("files","System:WRITE/macro/ListDemo.wpl");
  57.   ADDLIST("files","System:WRITE/macro/NumberText.wpl");
  58.   ADDLIST("files","System:WRITE/macro/Test2.wpl");
  59.   ADDLIST("files","System:WRITE/macro/Hanoi.wpl");
  60.   ADDLIST("files","System:WRITE/macro/Trimm_ATG.wpl");
  61.   PRINT("done.\n");
  62.  
  63.   PRINT("Initing functionlist...\n");
  64.   CLEARLIST("funct");
  65.   ADDLIST("funct","OPEN");
  66.   ADDLIST("funct","SAVE");
  67.   ADDLIST("funct","EXISTS");
  68.   ADDLIST("funct","FILEPART");
  69.   ADDLIST("funct","PATHPART");
  70.   ADDLIST("funct","ADDPART");
  71.   ADDLIST("funct","NEW");
  72.   ADDLIST("funct","NEWED");
  73.   ADDLIST("funct","QUITED");
  74.   ADDLIST("funct","WINDOW");
  75.   ADDLIST("funct","ICONIFY");
  76.   ADDLIST("funct","HIDE");
  77.   ADDLIST("funct","SILENT");
  78.   ADDLIST("funct","NEXTED");
  79.   ADDLIST("funct","OPENPORT");
  80.   ADDLIST("funct","CLOSEPORT");
  81.   ADDLIST("funct","LOCKWINDOW");
  82.   ADDLIST("funct","WAITPORT");
  83.   ADDLIST("funct","ABOUT");
  84.   ADDLIST("funct","CONFIGPREFS");
  85.   ADDLIST("funct","GLOBALPREFS");
  86.   ADDLIST("funct","HELP");
  87.   ADDLIST("funct","WINMANAGER");
  88.   ADDLIST("funct","SHOWVARIABLES");
  89.   ADDLIST("funct","SHOWFUNCTIONS");
  90.   ADDLIST("funct","SHOWASCII");
  91.   ADDLIST("funct","SHOWINDEX");
  92.   ADDLIST("funct","SHOWERRORS");
  93.   ADDLIST("funct","GETSTRING");
  94.   ADDLIST("funct","GETNUMBER");
  95.   ADDLIST("funct","GETFINDREPLACE");
  96.   ADDLIST("funct","GETFILE");
  97.   ADDLIST("funct","GETFILES");
  98.   ADDLIST("funct","GETFONT");
  99.   ADDLIST("funct","ASK");
  100.   ADDLIST("funct","MESSAGE");
  101.   ADDLIST("funct","MESSAGEOK");
  102.   ADDLIST("funct","GUIDEHELP");
  103.   ADDLIST("funct","FLASH");
  104.   ADDLIST("funct","BEEP");
  105.   ADDLIST("funct","PARSEBUFFER");
  106.   ADDLIST("funct","PARSEMACRO");
  107.   ADDLIST("funct","PARSESTRING");
  108.   ADDLIST("funct","DOBUFFER");
  109.   ADDLIST("funct","DOSTRING");
  110.   ADDLIST("funct","DOMACRO");
  111.   ADDLIST("funct","SETENV");
  112.   ADDLIST("funct","GETENV");
  113.   ADDLIST("funct","SYSTEM");
  114.   ADDLIST("funct","DOREXX");
  115.   ADDLIST("funct","SETREXXCLIP");
  116.   ADDLIST("funct","SETMARK");
  117.   ADDLIST("funct","MARK");
  118.   ADDLIST("funct","UNMARK");
  119.   ADDLIST("funct","STARTMARKMODE");
  120.   ADDLIST("funct","STOPMARKMODE");
  121.   ADDLIST("funct","INSERTBUFFER");
  122.   ADDLIST("funct","DELETEAREA");
  123.   ADDLIST("funct","COPYAREA");
  124.   ADDLIST("funct","SAVEBUFFER");
  125.   ADDLIST("funct","LOADBUFFER");
  126.   ADDLIST("funct","CLEARBUFFER");
  127.   ADDLIST("funct","BUFFERTOSTR");
  128.   ADDLIST("funct","STRTOBUFFER");
  129.   ADDLIST("funct","CLIPTOBUFFER");
  130.   ADDLIST("funct","BUFFERTOCLIP");
  131.   ADDLIST("funct","AREALEFT");
  132.   ADDLIST("funct","AREARIGHT");
  133.   ADDLIST("funct","AREALEFTALIGN");
  134.   ADDLIST("funct","AREARIGHTALIGN");
  135.   ADDLIST("funct","AREACENTER");
  136.   ADDLIST("funct","BLOCKAREA");
  137.   ADDLIST("funct","UPPERAREA");
  138.   ADDLIST("funct","LOWERAREA");
  139.   ADDLIST("funct","CURSORUP");
  140.   ADDLIST("funct","CURSORDOWN");
  141.   ADDLIST("funct","CURSORLEFT");
  142.   ADDLIST("funct","CURSORRIGHT");
  143.   ADDLIST("funct","NEXTWORD");
  144.   ADDLIST("funct","LASTWORD");
  145.   ADDLIST("funct","PAGEUP");
  146.   ADDLIST("funct","PAGEDOWN");
  147.   ADDLIST("funct","SCROLLUP");
  148.   ADDLIST("funct","SCROLLDOWN");
  149.   ADDLIST("funct","GOTO");
  150.   ADDLIST("funct","GOTOMOUSE");
  151.   ADDLIST("funct","SETTEXTMARK");
  152.   ADDLIST("funct","GOTEXTMARK");
  153.   ADDLIST("funct","MATCHBRACKET");
  154.   ADDLIST("funct","SETFINDREPLACE");
  155.   ADDLIST("funct","FIND");
  156.   ADDLIST("funct","REPLACE");
  157.   ADDLIST("funct","CR");
  158.   ADDLIST("funct","DELETE");
  159.   ADDLIST("funct","DELETETOEOL");
  160.   ADDLIST("funct","DELETELINE");
  161.   ADDLIST("funct","UNDELLINE");
  162.   ADDLIST("funct","BACKSPACE");
  163.   ADDLIST("funct","TAB");
  164.   ADDLIST("funct","BACKTAB");
  165.   ADDLIST("funct","WRITECHAR");
  166.   ADDLIST("funct","WRITETEXT");
  167.   ADDLIST("funct","SWAPCHAR");
  168.   ADDLIST("funct","READFROMFILE");
  169.   ADDLIST("funct","RESOLVETEMPLATE");
  170.   ADDLIST("funct","FONT");
  171.   ADDLIST("funct","SETTITLE");
  172.   ADDLIST("funct","ZIPWINDOW");
  173.   ADDLIST("funct","ACTIVATEWINDOW");
  174.   ADDLIST("funct","WINDOWTOFRONT");
  175.   ADDLIST("funct","WINDOWTOBACK");
  176.   ADDLIST("funct","SCREENTOFRONT");
  177.   ADDLIST("funct","SCREENTOBACK");
  178.   ADDLIST("funct","REFRESH");
  179.   ADDLIST("funct","WINARRANGER");
  180.   ADDLIST("funct","CHANGECONFIG");
  181.   ADDLIST("funct","GETCONFIG");
  182.   ADDLIST("funct","SAVEGLOBALCONFIG");
  183.   ADDLIST("funct","SAVECONFIG");
  184.   ADDLIST("funct","MACROREC");
  185.   ADDLIST("funct","MACROSTOP");
  186.   ADDLIST("funct","MACROPLAY");
  187.   ADDLIST("funct","UNDO");
  188.   ADDLIST("funct","CLEARLIST");
  189.   ADDLIST("funct","ADDLIST");
  190.   ADDLIST("funct","REMOVELIST");
  191.   ADDLIST("funct","PUSH");
  192.   ADDLIST("funct","POP");
  193.   ADDLIST("funct","SHOWLIST");
  194.   ADDLIST("funct","BUFFERTOLIST");
  195.   ADDLIST("funct","LISTTOBUFFER");
  196.   ADDLIST("funct","LISTSIZE");
  197.   ADDLIST("funct","GETLISTENTRY");
  198.   ADDLIST("funct","FINDLISTENTRY");
  199.   ADDLIST("funct","STRLEN");
  200.   ADDLIST("funct","DELAY");
  201.   ADDLIST("funct","XPOS");
  202.   ADDLIST("funct","YPOS");
  203.   ADDLIST("funct","VERSIONCHECK");
  204.   ADDLIST("funct","PRINT");
  205.   ADDLIST("funct","FOLD");
  206.   ADDLIST("funct","UNFOLD");
  207.   ADDLIST("funct","AUTOFOLD");
  208.   ADDLIST("funct","REFOLD");
  209.   PRINT("done.\n");
  210.  
  211.   PRINT("Initing new functionlist...\n");
  212.   CLEARLIST("newfunct");
  213.   ADDLIST("newfunct","Open");
  214.   ADDLIST("newfunct","Save");
  215.   ADDLIST("newfunct","Exists");
  216.   ADDLIST("newfunct","FilePart");
  217.   ADDLIST("newfunct","PathPart");
  218.   ADDLIST("newfunct","AddPart");
  219.   ADDLIST("newfunct","New");
  220.   ADDLIST("newfunct","NewEd");
  221.   ADDLIST("newfunct","QuitEd");
  222.   ADDLIST("newfunct","Window");
  223.   ADDLIST("newfunct","Iconify");
  224.   ADDLIST("newfunct","Hide");
  225.   ADDLIST("newfunct","Silent");
  226.   ADDLIST("newfunct","NextEd");
  227.   ADDLIST("newfunct","OpenPort");
  228.   ADDLIST("newfunct","ClosePort");
  229.   ADDLIST("newfunct","LockWindow");
  230.   ADDLIST("newfunct","WaitPort");
  231.   ADDLIST("newfunct","About");
  232.   ADDLIST("newfunct","ConfigPrefs");
  233.   ADDLIST("newfunct","GlobalPrefs");
  234.   ADDLIST("newfunct","Help");
  235.   ADDLIST("newfunct","WinManager");
  236.   ADDLIST("newfunct","ShowVariables");
  237.   ADDLIST("newfunct","ShowFunctions");
  238.   ADDLIST("newfunct","ShowAscii");
  239.   ADDLIST("newfunct","ShowIndex");
  240.   ADDLIST("newfunct","ShowErrors");
  241.   ADDLIST("newfunct","GetString");
  242.   ADDLIST("newfunct","GetNumber");
  243.   ADDLIST("newfunct","GetFindReplace");
  244.   ADDLIST("newfunct","GetFile");
  245.   ADDLIST("newfunct","GetFiles");
  246.   ADDLIST("newfunct","GetFont");
  247.   ADDLIST("newfunct","Ask");
  248.   ADDLIST("newfunct","Message");
  249.   ADDLIST("newfunct","MessageOk");
  250.   ADDLIST("newfunct","GuideHelp");
  251.   ADDLIST("newfunct","Flash");
  252.   ADDLIST("newfunct","Beep");
  253.   ADDLIST("newfunct","ParseBuffer");
  254.   ADDLIST("newfunct","ParseMacro");
  255.   ADDLIST("newfunct","ParseString");
  256.   ADDLIST("newfunct","DoBuffer");
  257.   ADDLIST("newfunct","DoString");
  258.   ADDLIST("newfunct","DoMacro");
  259.   ADDLIST("newfunct","SetEnv");
  260.   ADDLIST("newfunct","GetEnv");
  261.   ADDLIST("newfunct","System");
  262.   ADDLIST("newfunct","DoRexx");
  263.   ADDLIST("newfunct","SetRexxClip");
  264.   ADDLIST("newfunct","SetMark");
  265.   ADDLIST("newfunct","Mark");
  266.   ADDLIST("newfunct","Unmark");
  267.   ADDLIST("newfunct","StartMarkMode");
  268.   ADDLIST("newfunct","StopMarkMode");
  269.   ADDLIST("newfunct","InsertBuffer");
  270.   ADDLIST("newfunct","DeleteArea");
  271.   ADDLIST("newfunct","CopyArea");
  272.   ADDLIST("newfunct","SaveBuffer");
  273.   ADDLIST("newfunct","LoadBuffer");
  274.   ADDLIST("newfunct","ClearBuffer");
  275.   ADDLIST("newfunct","BufferToStr");
  276.   ADDLIST("newfunct","StrToBuffer");
  277.   ADDLIST("newfunct","ClipToBuffer");
  278.   ADDLIST("newfunct","BufferToClip");
  279.   ADDLIST("newfunct","AreaLeft");
  280.   ADDLIST("newfunct","AreaRight");
  281.   ADDLIST("newfunct","AreaLeftAlign");
  282.   ADDLIST("newfunct","AreaRightAlign");
  283.   ADDLIST("newfunct","AreaCenter");
  284.   ADDLIST("newfunct","BlockArea");
  285.   ADDLIST("newfunct","UpperArea");
  286.   ADDLIST("newfunct","LowerArea");
  287.   ADDLIST("newfunct","CursorUp");
  288.   ADDLIST("newfunct","CursorDown");
  289.   ADDLIST("newfunct","CursorLeft");
  290.   ADDLIST("newfunct","CursorRight");
  291.   ADDLIST("newfunct","NextWord");
  292.   ADDLIST("newfunct","LastWord");
  293.   ADDLIST("newfunct","PageUp");
  294.   ADDLIST("newfunct","PageDown");
  295.   ADDLIST("newfunct","ScrollUp");
  296.   ADDLIST("newfunct","ScrollDown");
  297.   ADDLIST("newfunct","Goto");
  298.   ADDLIST("newfunct","GotoMouse");
  299.   ADDLIST("newfunct","SetTextMark");
  300.   ADDLIST("newfunct","GoTextMark");
  301.   ADDLIST("newfunct","MatchBracket");
  302.   ADDLIST("newfunct","SetFindReplace");
  303.   ADDLIST("newfunct","Find");
  304.   ADDLIST("newfunct","Replace");
  305.   ADDLIST("newfunct","CR");
  306.   ADDLIST("newfunct","Delete");
  307.   ADDLIST("newfunct","DeleteToEOL");
  308.   ADDLIST("newfunct","DeleteLine");
  309.   ADDLIST("newfunct","UndeleteLine");
  310.   ADDLIST("newfunct","Backspace");
  311.   ADDLIST("newfunct","Tab");
  312.   ADDLIST("newfunct","BackTab");
  313.   ADDLIST("newfunct","WriteChar");
  314.   ADDLIST("newfunct","WriteText");
  315.   ADDLIST("newfunct","SwapChar");
  316.   ADDLIST("newfunct","ReadFromFile");
  317.   ADDLIST("newfunct","ResolveTemplate");
  318.   ADDLIST("newfunct","Font");
  319.   ADDLIST("newfunct","SetTitle");
  320.   ADDLIST("newfunct",">ZipWindow");
  321.   ADDLIST("newfunct","ActivateWindow");
  322.   ADDLIST("newfunct","WindowToFront");
  323.   ADDLIST("newfunct","WindowToBack");
  324.   ADDLIST("newfunct","ScreenToFront");
  325.   ADDLIST("newfunct","ScreenToBack");
  326.   ADDLIST("newfunct","Refresh");
  327.   ADDLIST("newfunct","WinArranger");
  328.   ADDLIST("newfunct","ChangeConfig");
  329.   ADDLIST("newfunct","GetConfig");
  330.   ADDLIST("newfunct","SaveGlobalConfig");
  331.   ADDLIST("newfunct","SaveConfig");
  332.   ADDLIST("newfunct","MacroRec");
  333.   ADDLIST("newfunct","MacroStop");
  334.   ADDLIST("newfunct","MacroPlay");
  335.   ADDLIST("newfunct","Undo");
  336.   ADDLIST("newfunct","ClearList");
  337.   ADDLIST("newfunct","AddList");
  338.   ADDLIST("newfunct","RemoveList");
  339.   ADDLIST("newfunct","Push");
  340.   ADDLIST("newfunct","Pop");
  341.   ADDLIST("newfunct","ShowList");
  342.   ADDLIST("newfunct","BufferToList");
  343.   ADDLIST("newfunct","ListToBuffer");
  344.   ADDLIST("newfunct","ListSize");
  345.   ADDLIST("newfunct","GetListEntry");
  346.   ADDLIST("newfunct","FindListEntry");
  347.   ADDLIST("newfunct","StrLen");
  348.   ADDLIST("newfunct","Delay");
  349.   ADDLIST("newfunct","XPos");
  350.   ADDLIST("newfunct","YPos");
  351.   ADDLIST("newfunct","VersionCheck");
  352.   ADDLIST("newfunct","Print");
  353.   ADDLIST("newfunct","Fold");
  354.   ADDLIST("newfunct","UnFold");
  355.   ADDLIST("newfunct","AutoFold");
  356.   ADDLIST("newfunct","ReFold");
  357.   PRINT("done.\n");
  358.  
  359.   PRINT("Starting...\n");
  360.  
  361.   FOR x:=1 TO LISTSIZE("files") DO
  362.  
  363.     IF GETLISTENTRY("files",x,file) THEN
  364.  
  365.       PRINT(FORMAT("Scanning %1 of %2 (\"%3\")..\n.",x,LISTSIZE("files"),file));
  366.  
  367.       OPEN(file);
  368.  
  369.       FOR y:=1 TO LISTSIZE("funct") DO
  370.  
  371.         IF  GETLISTENTRY("funct",y,find)
  372.         AND GETLISTENTRY("newfunct",y,replace) THEN
  373.  
  374.           SETFINDREPLACE(find,replace,0){@WORD,@CASE};
  375.           REPLACE([%SOT,%SOT],[%EOT,%EOT]){@ALL,@SILENT,@NOREQ}
  376.  
  377.         END;
  378.  
  379.       END;
  380.  
  381.       SAVE(file);
  382.  
  383.       PRINT("done.\n");
  384.  
  385.     END;
  386.  
  387.   END;
  388.  
  389.   PRINT("done.\n");
  390.  
  391. END.
  392.